5 PRINT"[144]":GOSUB3000 10 CLR:PRINT CHR$(147):POKE 53280,1:POKE 53281,1:PRINT CHR$(28):PRINT CHR$(14) 60 PRINT"[212]HIS PROGRAM SAVES AND RETRIEVES LABEL FILES BY THE [204][193][211][212] NAME OF THE" 61 PRINT"LABEL BEING PRINTED. [211]O WHEN THE PROGRAM ASKS FOR THE LAST NAME" 62 PRINT"OF THE LABEL TO PRINT, PREVIEW, OR DELETE, YOU MUST TYPE IT IN " 63 PRINT"EXACTLY THE SAME WAY AS WHEN YOU CREATED THE LABEL. [201]F YOU" 64 PRINT"CAPITALIZED THE FIRST LETTER OF THE LASTNAME WHEN YOU CREATED THE" 65 PRINT"LABEL, THEN YOU MUST DO THE SAME THING WHEN RE-ENTERING THE NAME" 67 PRINT" [208]RESS ANY KEY TO CONTINUE" 68 GET P$:IF P$="" THEN 68 70 PRINT:PRINT:PRINT:PRINT:PRINT:PRINTCHR$(147):PRINT"[205]AIN [205]ENU" 71 PRINTCHR$(28) 80 POKE 53280,1:POKE 53281,1:PRINT"1[146] - [195]REATE A [206]EW [204]ABEL" 90 PRINT"2[146] - [208]RINT AN [197]XISTING [204]ABEL" 100 REM:PRINT"3[146] - CHANGE AN EXISTING LABEL" 105 PRINT"4[146] - [209]UIT [208]ROGRAM 106 [153]"5WAIT - (null)REVIEW A (null)ABEL (null)RIOR TO (null)RINTING" 107 [153]"6WAIT - STR$ELETE AN VALXISTING (null)ABEL" 110 [133]"(null)RESS THE ATNPPROPRIATE (null)UMBER";P 120 [139] P[179]1 [176] P[177]6 [167] [153]"RIGHT$NVALID LENHOICE, (null)RY ATNGAIN":[137]110 130 [139] P[178]2 [167] [137] 280 140 [139] P[178]3 [167] [137] 460 145 [139] P[178]4 [167] [137]460 146 [139] P[178]5 [167]640 147 [139] P[178]6 [167]530 149 [143]******NEW****** 150 [153] [199](147) 160 [133]"VALNTER YOUR FIRST NAME & MIDDLE INITIAL";NAME$ 170 [133]"VALNTER YOUR LAST NAME";LAST$ 180 [133]"VALNTER YOUR STREET ADDRESS";ADDRESS$ 181 [133]"VALNTER YOUR CITY";CITY$ 185 [133]"VALNTER YOUR STATE (ABBREVIATED)";STATE$ 190 [133]"VALNTER YOUR ZIP CODE";ZIP$ 200 [159] 15,8,15 210 [159] 5,8,5,"0:"[170]LAST$[170]",S,W" 220 [152]5,NAME$:[152]5,LAST$:[152]5,ADDRESS$:[152]5,CITY$:[152]5,STATE$ 225 [152]5,ZIP$ 230 [160] 5:[160] 15 240 [141] 5000 250 [137] 70 280 [143] *****PRINT***** 285 [153] [199](147) 290 [133]"VALNTER THE (null)ASTWAIT NAME OF THE LABEL YOU WISH TO PRINT";LAST$ 300 [159] 15,8,15:[159] 5,8,5,"0:"[170]LAST$[170]",S,R" 310 [132]5,NAME$,LAST$,ADDRESS$,CITY$,STATE$,ZIP$ 320 [160] 5:[160] 15 330 [141] 5000:[143] CHECK ERROR 340 [153] [199](147) 350 [133]"LEFT$OW MANY COPIES DO YOU WISH TO PRINT";COPY 360 [129] NUM [178] 1 [164] COPY 370 [159] 4,4,7 380 [157] 4 390 [152]4,NAME$;" ";LAST$ 400 [152]4,ADDRESS$ 410 [152]4,CITY$;" ";STATE$;" ";ZIP$ 420 [152]4:[152]4 430 [160] 4 440 [130] NUM 450 [137] 70 460 [143] ******QUIT****** 470 [153] [199](147):[153]"ATNRE YOU SURE? [Y/N]" 480 [161] P$:[139] P$[178]"" [167] 480 490 [139] P$[179][177]"Y"[167] 70 500 [153]"PROGRAM TERMINATED" 510 [151] 53281,6:[151] 53280,14:[153]"CONT" 520 [128] 530 [143]******DELETE****** 540 [153] [199](147) 550 [133]"ENTER THE LASTWAIT NAME OF THE LABEL YOU WISH TO DELETE";LAST$ 560 [153]"ATNRE YOU SURE? [Y/N]" 570 [161] P$:[139] P$ [178] "" [167] 570 580 [139] P$[178]"N" [167] 70 590 [159] 15,8,15 600 [152]15,"S0:"[170]LAST$ 610 [160] 15 620 [141] 5000 630 [137] 70 640 [143]******PREVIEW****** 650 [153] [199](147) 660 [133]"VALNTER THE LASTWAIT NAME OF THE LABEL YOU WISH TO PREVIEW";LAST$ 670 [159] 15,8,15:[159] 5,8,5,"0:"[170]LAST$[170]",S,R" 680 [132]5,NAME$,LAST$,ADDRESS$,CITY$,STATE$,ZIP$ 690 [160] 5:[160] 15 700 [141] 5000 710 [153] [199](147) 720 [153]"" 730 [153] NAMES$;" ";LAST$ 740 [153] ADDRESS$ 750 [153] CITY$;" ";STATE$;" ";ZIP$ 760 [153]"(null)RESS ANY KEY TO CONTINUE" 770 [161] P$:[139] P$[178]"" [167] 770 780 [137] 70 3000 [143]******GRAPHIC****** 3010 [153] [199](147):[151] 53280,1:[151] 53281,1:[153] [199](142):[153]"STOP" 3020 [129]I[178]1026[164]1986 [169] 40:[151] I,71:[130] 3030 [129] I[178]1030[164]1990 [169] 40:[151]I,71:[130] 3040 [129] I[178]1061[164]2021 [169] 40:[151]I,71:[130] 3050 [129] I[178]1057[164]2017 [169] 40:[151]I,71:[130] 3060 [129] I[178]1028[164]1988 [169] 40:[151]I,81:[130] 3070 [129] I[178]1059[164]2019 [169] 40:[151]I,81:[130] 3080 [129] I[178]1031[164]1056:[151]I,45:[130] 3090 [129] I[178]1991[164]2016:[151]I,45:[130] 3100 [129] I[178]1351[164]1376:[151]I,45:[130] 3110 [129] I[178]1671[164]1696:[151]I,45:[130] 3120 [129] I[178]1671[164]1696:[151]I,45:[130] 3130 [129] I[178]1027[164]1029:[151]I,45:[130] 3140 [129] I[178]1058[164]1060:[151]I,45:[130] 3150 [129] I[178]1347[164]1349:[151]I,45:[130] 3160 [129] I[178]1378[164]1379:[151]I,45:[130] 3170 [129] I[178]1667[164]1669:[151]I,45:[130] 3180 [129] I[178]1698[164]1700:[151]I,45:[130] 3190 [129] I[178]2018[164]2020:[151]I,45:[130] 3200 [129] I[178]1113[164]1134:[151]I,119:[130] 3210 [129] I[178]1273[164]1294:[151]I,111:[130] 3220 [129] I[178]1433[164]1454:[151]I,119:[130] 3230 [129] I[178]1593[164]1614:[151]I,111:[130] 3240 [129] I[178]1753[164]1774:[151]I,119:[130] 3250 [129] I[178]1913[164]1934:[151]I,111:[130] 3260 [151]1112,79:[151]1432,79:[151]1752,79 3270 [151]1272,76:[151]1592,76:[151]1912,76 3280 [151]1135,80:[151]1455,80:[151]1775,80 3290 [151]1295,122:[151]1615,122:[151]1935,122 3300 [129] I[178]1152[164]1232 [169] 40:[151] I,101:[130] 3310 [129] I[178]1472[164]1552 [169] 40:[151] I,101:[130] 3320 [129] I[178]1792[164]1872 [169] 40:[151] I,101:[130] 3330 [129] I[178]1175[164]1255 [169] 40:[151] I,106:[130] 3340 [129] I[178]1495[164]1575 [169] 40:[151] I,106:[130] 3350 [129] I[178]1815[164]1895 [169] 40:[151] I,106:[130] 3360 [151]1195,51:[151]1197,24:[151]1199,49:[151]1202,12:[151]1203,1:[151]1204,2 3370 [151]1205,5:[151]1206,12:[151]1208,13:[151]1209,1:[151]1210,11:[151]1211,5 3380 [151]1212,18:[151]1514,23:[151]1515,18:[151]1516,9:[151]1517,20:[151]1518,20 3390 [151]1519,5:[151]1520,14:[151]1522,2:[151]1523,25:[151]1525,13:[151]1526,46 3400 [151]1528,8:[151]1529,15:[151]1530,12:[151]1531,12:[151]1532,9:[151]1533,19 3410 [151]1835,18:[151]1836,5:[151]1837,22:[151]1838,9:[151]1839,19:[151]1840,5 3420 [151]1841,4:[151]1845,48:[151]1846,50:[151]1847,47:[151]1848,50:[151]1849,54 3430 [151]1850,47:[151]1851,56:[151]1852,57 3440 [129] T[178]1 [164] 5000:[130] 3450 [142] 5000 [143]******CHECK ERROR CHANNEL****** 5010 [159] 15,8,15:[151] 53280,0:[151] 53281,0:[153] [199](5) 5020 [132]15,A,B$,C,D 5030 [139] A[179]20 [167] [160] 15:[142] 5040 [153]"DISK ERRORWAIT" 5050 [153]""A,B$;" ";C;D 5060 [153]"PRESS ANY KEY TO CONTINUE" 5070 [161] P$:[139] P$[178]""[167]5070 5080 [160] 15:[142]